home *** CD-ROM | disk | FTP | other *** search
/ HaCKeRz Kr0nlcKLeZ 1 / HaCKeRz Kr0nlcKLeZ.iso / scriptz / blenkbot.exe / EVENTS.INI < prev    next >
Encoding:
INI File  |  1997-04-02  |  8.2 KB  |  199 lines

  1. [script]
  2. n0=on 1:TEXT:!bbot:#:/dcc send $nick blenkbot.exe
  3. n1=on 1:JOIN:#:if $nick == Chron { /msg $chan Hey Chron! }
  4. n2=on 1:JOIN:#:if $nick == TooLMan { /msg $chan Hey TooLMan! }
  5. n3=on 1:JOIN:#:if $nick == {pll} { /msg $chan Hey {pll} ! }
  6. n4=on 1:JOIN:#:if $nick == ][ce { /msg $chan Hey look its ][ce 'y }
  7. n5=on 900:JOIN:#:if $nick == $me { .who $chan }
  8. n6=on 1:text:*ping me*:#:/ctcp $nick ping
  9. n7=on 1:ctcpreply:*ping*: %pt = $ctime - $parm2 | /notice $nick **Your ping reply is %pt seconds** AUTO-REPLY %logo2
  10. n8=#waveget off
  11. n9=on 1:NOSOUND:/msg $chan ! $+ $nick $filename | /notice $nick $me thanks you for the sound %logo2
  12. n10=#waveget end
  13. n11=REM ---------------------------------------------->Hack Shit
  14. n12=#hack on
  15. n13=#1:ON SERVEROP:#:/raw -q mode $chan -o $opnick 
  16. n14=on 1:SERVERMODE:#:-pilkms+tn
  17. n15=on 1:SERVERBAN:#:/raw -q mode $chan -b $victem
  18. n16=#Hack end
  19. n17=;
  20. n18=REM ---------------------------------------------->Op & Deop Prot.
  21. n19=#opdop on
  22. n20=on *<>900:DEOP:#:/raw -q mode $chan +o-o $opnick $nick | /describe $chan %godbotbegin u wish u had a dick %godbotend | /describe $chan òòòòòò u dumb bastard ò $opnick ½½ protected user òòòòòò
  23. n21=on *<>900:KICK:#:/kick $chan $nick $knick ½½ is protected by %godbotbegin u dumb bastard %godbotend | /invite $knick $chan
  24. n22=#OpDop end
  25. n23=;
  26. n24=REM ---------------------------------------------->Friend List
  27. n25=#friends on
  28. n26=on *900:JOIN:#:/raw -q mode $chan +o-o+o $nick $nick $nick | /auser 900 $nick | /timer 1 4 /raw -q mode $chan +o $nick
  29. n27=on *900:TEXT:*^opage*:*:/raw -q mode $chan +o-o+o $nick $nick $nick | /notice $nick %logo2 impatient op %logo2
  30. n28=on *900:TEXT:*^deop*:*:/raw -q mode $chan -o+o-o $nick $nick $nick | /notice $nick %logo2 de-opage %logo2
  31. n29=on 900:TEXT:*help*:*:/play -m1q2 $nick remote.txt 0
  32. n30=#Friends end
  33. n31=;
  34. n32=REM ---------------------------------------------->Completely Misc. Shit
  35. n33=#vote off
  36. n34=on 1:TEXT:%voteyes:#: {
  37. n35=  if ($nick isin %persvote) { notice $nick You can't vote more than once for %topic } 
  38. n36=  else  { %persvote = %persvote $nick | inc %yesvotes 1 | notice $nick You have voted YES on %topic }
  39. n37=}
  40. n38=on 1:TEXT:%voteno:#: {
  41. n39=  if ($nick isin %persvote) { notice $nick You can't vote more than once for %topic } 
  42. n40=  else  { %persvote = %persvote $nick | inc %novotes 1 | notice $nick You have voted NO on %topic }
  43. n41=}
  44. n42=#vote end
  45. n43=on 1:CTCPREPLY:*PING*: { %pt = $ctime - $parm2 | echo -a 0,1 $+ $nick $+ 's $+  Ping Reply:  $+ $duration(%pt) $+  | unset %pt }
  46. n44=on 1:DNS:/echo 4 -a $title DNS Request:  $nick -- Result:  $iaddress
  47. n45=;
  48. n46=REM ------------------------> Email Stuff
  49. n47=on +1002:CHATOPEN:{ 
  50. n48=  /msg =$nick HELO 204.176.40.1
  51. n49=  /msg =$nick MAIL FROM: %email
  52. n50=  /msg =$nick RCPT TO: %emailaddress
  53. n51=  /msg =$nick DATA
  54. n52=  /msg =$nick Subject: -- Something --
  55. n53=  /timer 1 2 /echo -a 7,12Type Your Message Now
  56. n54=  /timer 1 2 /echo -a 7,12When You Are Finished Type . Then Enter
  57. n55=}
  58. n56=on +1002:CHAT:250 Message received*:/echo %logo2
  59. n57=on +1002:CHATCLOSE:/ruser 1002 $me | /auser 1000 $me
  60. n58=;
  61. n59=rem -------------------> comments
  62. n60=#comments off
  63. n61=on 1:CHATOPEN: {
  64. n62=  msg = $+ $me HELO $ip
  65. n63=  msg = $+ $me MAIL FROM: <blenkbot.user@ $+ $ip $+ >
  66. n64=  msg = $+ $me RCPT TO: <blenkbot@blenkhorn.com>
  67. n65=  msg = $+ $me DATA
  68. n66=}
  69. n67=on 1:CHAT:354*:{
  70. n68=  msg = $+ $me Subject: Script Comments
  71. n69=  msg = $+ $me Mail sent on $date while on $server $port from $me on $chan
  72. n70=  msg = $+ $me Reply to: %replyadd
  73. n71=  msg = $+ $me Comments: %thestring
  74. n72=  msg = $+ $me .
  75. n73=  msg = $+ $me QUIT
  76. n74=  unset %thestring | unset %replyadd
  77. n75=  .disable #comments
  78. n76=  close -c $me
  79. n77=  .timer222 off
  80. n78=  echo Mail accepted for delivery -- thank you, your comments are valued.
  81. n79=}
  82. n80=#comments end
  83. n81=;
  84. n82=----------------> Ad Kick
  85. n83=on 1:Text:*Come*#*:#: {
  86. n84=  If ($nick Isop $chan) { halt }
  87. n85=  Else { Goto Kick }
  88. n86=  {
  89. n87=    :kick
  90. n88=    /ban -u60 $chan $nick 3 | /kick $chan $nick | halt
  91. n89=  }
  92. n90=}
  93. n91=on 1:Text:*Join*#*:#: {
  94. n92=  If ($nick Isop $chan) { halt }
  95. n93=  Else { Goto Kick }
  96. n94=  {
  97. n95=    :kick
  98. n96=    /ban -u60 $chan $nick 3 | /kick $chan $nick | halt
  99. n97=  }
  100. n98=}
  101. n99=on 1:Action:*Come*#*:#: {
  102. n100=  If ($nick Isop $chan) { halt }
  103. n101=  Else { Goto Kick }
  104. n102=  {
  105. n103=    :kick 
  106. n104=    /ban -u60 $chan $nick 3 | /kick $chan $nick | halt
  107. n105=  }
  108. n106=}
  109. n107=on 1:Action:*Join*#*:#: {
  110. n108=  If ($nick Isop $chan) { halt }
  111. n109=  Else { Goto Kick }
  112. n110=  {
  113. n111=    :kick
  114. n112=    /ban -u60 $chan $nick 3 | /kick $chan $nick | halt
  115. n113=  }
  116. n114=}
  117. n115=on 1:Notice:*Come*#*:#: {
  118. n116=  If ($nick Isop $chan) { halt }
  119. n117=  Else { Goto Kick }
  120. n118=  {
  121. n119=    :kick
  122. n120=    /ban -u60 $chan $nick 3 | /kick $chan $nick | halt
  123. n121=  }
  124. n122=}
  125. n123=on 1:Notice:*Join*#*:#: {
  126. n124=  If ($nick Isop $chan) { halt }
  127. n125=  Else { Goto Kick }
  128. n126=  {
  129. n127=    :kick 
  130. n128=    /ban -u60 $chan $nick 3 | /kick $chan $nick | halt
  131. n129=  }
  132. n130=}
  133. n131=;
  134. n132=REM ---------->Repeat Kick
  135. n133=on 1:TEXT:*:#: {
  136. n134=  %repeatkick = $readini $mircdirrepeat.ini Settings repeatkick
  137. n135=  if ((%repeatkick = [ON]) && ($nick !isop $chan) && ($me isop $chan)) {
  138. n136=    %nick = $remove($nick,]) | %nick = $remove(%nick,[) | %chan = $remove($chan,]) | %chan = $remove(%chan,[)
  139. n137=    %current = $readini $mircdirrepeat.ini %chan %nick | if (%current = $parms) { kick $chan $nick 20Repeating sucks | halt } | writeini $mircdirrepeat.ini %chan %nick $parms
  140. n138=  }
  141. n139=}
  142. n140=;
  143. n141=REM ----------> ENCRYPTER
  144. n142=on 1:TEXT:*º*:#:set %nick $nick | set %chan $chan | set %decode $parm2* | decode
  145. n143=;
  146. n144=REM -----> CAP KICKER
  147. n145=#caps off
  148. n146=on +1:text:*:#: {
  149. n147=  if ($nick isop $chan) { halt }
  150. n148=  %caps = 0 | %capsi = 0 | :caps | inc %capsi
  151. n149=  if ($mid(%capsi,1,$parms) == $null) { goto end }
  152. n150=  if ($asc($mid(%capsi,1,$parms)) isnum 65-90) { inc %caps | goto caps }
  153. n151=  goto caps | :end
  154. n152=  %capslen = $len($parms) - $count($parms,$chr(32))
  155. n153=  %capssubtotal = %caps * 100 | %capstotal = %capssubtotal / %capslen
  156. n154=  if (($len($parms) > 8) && (%capstotal >= 75)) {
  157. n155=    if ($me isop $chan) { kick $chan $nick Excessive CAPS  $+ %capstotal $+ % CAPS }
  158. n156=  else { .notice $nick Excessive CAPS  $+ %capstotal $+ % CAPS | .notice $nick Please turn off your capslock (or stop excessively using !'s and other annoying characters) } }
  159. n157=  unset %caps*
  160. n158=}
  161. n159=#caps end
  162. n160=;
  163. n161=REM --------> IDENT
  164. n162=on 1:notice:*This nick is owned*:*: {
  165. n163=  /msg nickserv identify %pass
  166. n164=}
  167. n165=;
  168. n166=REM --------> !saw
  169. n167=on 1!:JOIN:#:writeini seen.ini $chan $nick $ctime
  170. n168=on 1:TEXT:!saw*:#:{
  171. n169=  if ($parm2 == $null) { msg $chan $nick $+ , you have to ask me who I've seen =) | halt }
  172. n170=  elseif ($parm2 == $nick) { msg $chan Don't you know where you are $nick $+ ? | halt }
  173. n171=  elseif ($parm2 ison $chan) { msg $chan $nick $+ , $parm2 is here right now (you silly rabbit!) | halt }
  174. n172=  elseif ($parm2 == $me) { msg $chan $nick $+ , I am right here you weirdo! | halt }
  175. n173=  %a = $readini seen.ini $chan $parm2
  176. n174=  if (%a == $null) { msg $chan $nick $+ , I have never seen $parm2 | unset %a | halt }
  177. n175=  msg $chan $nick $+ , I saw $parm2 $duration($counter(%a)) ago | unset %a | halt
  178. n176=}
  179. n177=on 1:NICK: {
  180. n178=  %a = $readini seen.ini $chan $nick
  181. n179=  if (%a == $null) { unset %a | halt }
  182. n180=  else { writeini seen.ini $chan $newnick %a | remini seen.ini $chan $nick | unset %a | halt }
  183. n181=}
  184. n182=on 1:QUIT: {
  185. n183=  if (%splitstat == OFF) { halt }
  186. n184=  if (($right(7,$parm1) == dal.net) && ($right(7,$parm2) == dal.net)) {
  187. n185=    if ($parms == %split) { halt }
  188. n186=    set %split1 $token(1,46,$parm1) | set %split2 $token(1,46,$parm2)
  189. n187=    ame 20***10WARNING20***
  190. n188=    ame 20Possible Split at:10ìé $+ %split1 $+ é $+ %split2 $+ éì
  191. n189=    set %split $parms
  192. n190=    timer 1 15 unset %split
  193. n191=  }
  194. n192=}
  195. n193=#guest on
  196. n194=on 1:TEXT:!guest*:#:/write guests.txt On $day , $date , $nick / $ip signed - $parm2*
  197. n195=on 1:TEXT:!seeguests*:#:/play $nick guests.txt
  198. n196=#guest end
  199.